@@ -1,3 +1,12 @@
+
+4.66 Wed Feb 24 09:30:17 EST 2010
+
+ [DOCUMENTATION]
+ - Typo fixes (Jonathan Yu)
+
+ [INTERNALS]
+ - Test suite fix for 5.11.1 and newer.
+
4.65 Wed Dec 30 22:17:33 EST 2009
[NEW FEATURES]
@@ -1,5 +1,10 @@
Build.PL
Changes
+MANIFEST This list of files
+MANIFEST.SKIP
+META.yml
+README
+RELEASE_NOTES
lib/Data/FormValidator.pm
lib/Data/FormValidator/Constraints.pm
lib/Data/FormValidator/Constraints/Dates.pm
@@ -7,11 +12,6 @@ lib/Data/FormValidator/Constraints/Upload.pm
lib/Data/FormValidator/ConstraintsFactory.pm
lib/Data/FormValidator/Filters.pm
lib/Data/FormValidator/Results.pm
-MANIFEST This list of files
-MANIFEST.SKIP
-META.yml
-README
-RELEASE_NOTES
t/00_base.t
t/02_code_ref.t
t/03_dependency.t
@@ -33,11 +33,13 @@ t/26_qr.t
t/27_qualify_ref_happy_death.t
t/28_defaults_for_new.t
t/30_filter_definedness.t
+t/FV_length.t
+t/ValidatorPackagesTest1.pm
+t/ValidatorPackagesTest2.pm
t/any_errors.t
t/check_profile_syntax.t
t/constraint_method.t
t/constraint_method_string.t
-t/constraint_method_zero.t
t/constraint_regexp_map_profile_reuse.t
t/constraints_builtin.t
t/constraints_builtin_closure.t
@@ -53,7 +55,6 @@ t/dependency_groups.t
t/filter_constraints.t
t/filters_builtin.t
t/filters_shouldnt_modify.t
-t/FV_length.t
t/get_filtered_data.t
t/get_input_data.t
t/missing_optional.t
@@ -76,7 +77,5 @@ t/upload.t
t/upload_closure.t
t/upload_mime_types.t
t/upload_post_text.txt
-t/ValidatorPackagesTest1.pm
-t/ValidatorPackagesTest2.pm
test/00_base.badformat
test/00_base.profile
@@ -1,21 +1,30 @@
----
-abstract: "Validates user input (usually from an HTML form) based\non input profile."
+--- #YAML:1.0
+name: Data-FormValidator
+version: 4.66
author:
- - 'Mark Stosberg <mark@summersault.com>'
+ - Mark Stosberg <mark@summersault.com>
+abstract: |-
+ Validates user input (usually from an HTML form) based
+ on input profile.
+license: perl
+requires:
+ Date::Calc: 5
+ Email::Valid: 0
+ File::MMagic: 1.17
+ Image::Size: 0
+ MIME::Types: 1.005
+ Perl6::Junction: 1.1
+ Regexp::Common: 0
+ Scalar::Util: 0
+ Test::More: 0
+ overload: 0
+ perl: 5.008
build_requires:
CGI: 3.48
-configure_requires:
- Module::Build: 0.36
-generated_by: 'Module::Build version 0.3601'
-license: perl
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-name: Data-FormValidator
provides:
Data::FormValidator:
file: lib/Data/FormValidator.pm
- version: 4.65
+ version: 4.66
Data::FormValidator::Constraints:
file: lib/Data/FormValidator/Constraints.pm
version: 4.65
@@ -24,6 +33,7 @@ provides:
version: 4.65
Data::FormValidator::Constraints::RegexpCommon:
file: lib/Data/FormValidator/Results.pm
+ version: 4.65
Data::FormValidator::Constraints::Upload:
file: lib/Data/FormValidator/Constraints/Upload.pm
version: 4.65
@@ -36,18 +46,4 @@ provides:
Data::FormValidator::Results:
file: lib/Data/FormValidator/Results.pm
version: 4.65
-requires:
- Date::Calc: 5
- Email::Valid: 0
- File::MMagic: 1.17
- Image::Size: 0
- MIME::Types: 1.005
- Perl6::Junction: 1.1
- Regexp::Common: 0
- Scalar::Util: 0
- Test::More: 0
- overload: 0
- perl: 5.008
-resources:
- license: http://dev.perl.org/licenses/
-version: 4.65
+generated_by: Module::Build version 0.2611
@@ -82,7 +82,7 @@ VALIDATING INPUT
unknowns
This is a list of fields which are unknown to the profile. Whether
or not this indicates an error in the user input is application
- dependant.
+ dependent.
new()
Using "new()" is only needed for advanced usage, including these cases:
@@ -701,7 +701,7 @@ BACKWARDS COMPATIBILITY
unknowns
This is a list of fields which are unknown to the profile. Whether
or not this indicates an error in the user input is application
- dependant.
+ dependent.
constraints (profile key)
This is a supported but deprecated profile key. Using
@@ -33,7 +33,7 @@ use Data::FormValidator::Constraints qw(:validators :matchers);
use vars qw( $VERSION $AUTOLOAD @ISA @EXPORT_OK %EXPORT_TAGS );
-$VERSION = '4.65';
+$VERSION = '4.66';
require Exporter;
@ISA = qw(Exporter);
@@ -224,7 +224,7 @@ constraints.
This is a list of fields which are unknown to the profile. Whether or
not this indicates an error in the user input is application
-dependant.
+dependent.
=back
@@ -1087,7 +1087,7 @@ constraints.
This is a list of fields which are unknown to the profile. Whether or
not this indicates an error in the user input is application
-dependant.
+dependent.
=back
@@ -1,73 +0,0 @@
-#!perl
-# For RT#45177
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-use Data::FormValidator;
-
-{
- my $results = Data::FormValidator->check({ nine_is_ok => 9 }, {
- required => [ 'nine_is_ok' ],
- constraint_methods => { 'nine_is_ok' => qr/^(9)$/ },
- untaint_all_constraints => 1,
- });
- is($results->valid('nine_is_ok'),9, "nine should be valid for 9 with capturing parens (untainted)");
-}
-{
- my $results = Data::FormValidator->check({ nine_is_ok => 9 }, {
- required => [ 'nine_is_ok' ],
- constraint_methods => { 'nine_is_ok' => qr/^9$/ },
- untaint_all_constraints => 1,
- });
- is($results->valid('nine_is_ok'),9, "nine should be valid for 9 without capturing parens (untainted)");
-}
-{
- my $results = Data::FormValidator->check({ zero_is_ok => 0 }, {
- required => [ 'zero_is_ok' ],
- constraint_methods => { 'zero_is_ok' => qr/^0$/ },
- untaint_all_constraints => 1,
- });
- is($results->valid('zero_is_ok'),0, "zero should be valid without capturing parens (untainted)");
-}
-{
- my $results = Data::FormValidator->check({ zero_is_ok => 0 }, {
- required => [ 'zero_is_ok' ],
- constraint_methods => { 'zero_is_ok' => qr/^(0)$/ },
- untaint_all_constraints => 1,
- });
- is($results->valid('zero_is_ok'),0, "zero should be valid with capturing parens (untainted)");
-}
-{
- my $results = Data::FormValidator->check({ nine_is_ok => 9 }, {
- required => [ 'nine_is_ok' ],
- constraint_methods => { 'nine_is_ok' => qr/^(9)$/ },
- });
- is($results->valid('nine_is_ok'),9, "nine should be valid for 9 with capturing parens");
-}
-{
- my $results = Data::FormValidator->check({ nine_is_ok => 9 }, {
- required => [ 'nine_is_ok' ],
- constraint_methods => { 'nine_is_ok' => qr/^9$/ },
- });
- is($results->valid('nine_is_ok'),9, "nine should be valid for 9 without capturing parens");
-}
-{
- my $results = Data::FormValidator->check({ zero_is_ok => 0 }, {
- required => [ 'zero_is_ok' ],
- constraint_methods => { 'zero_is_ok' => qr/^0$/ },
- });
- is($results->valid('zero_is_ok'),0, "zero should be valid without capturing parens");
-}
-{
- my $results = Data::FormValidator->check({ zero_is_ok => 0 }, {
- required => [ 'zero_is_ok' ],
- constraint_methods => { 'zero_is_ok' => qr/^(0)$/ },
- });
- is($results->valid('zero_is_ok'),0, "zero should be valid with capturing parens");
-}
-
-
-
-
@@ -1,9 +1,7 @@
-use Test::More tests => 4;
+use Test::More 'no_plan';
-BEGIN: {
- use_ok('Data::FormValidator');
- use_ok('Data::FormValidator::ConstraintsFactory',qw(&make_length_constraint));
-}
+use Data::FormValidator;
+use Data::FormValidator::ConstraintsFactory 'make_length_constraint';
{
my $results = Data::FormValidator->check(
@@ -13,6 +13,9 @@ use strict;
my $replacer = FV_replace(qr/^a/,'b');
is( $replacer->('aa'), 'ba', 'FV_replace positive test');
is( $replacer->('XX'), 'XX', 'FV_replace negative test');
+
+ my $replacer = FV_replace(qr/^a/i,'b');
+ is( $replacer->('AA'), 'bA', 'FV_replace positive test');
}